home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / rules / GuestAccess.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  3.2 KB  |  121 lines
  1. <html>
  2. <head>
  3. <script language="JavaScript">
  4. <!-- 
  5.  
  6. if (document.images) {
  7.  
  8.   // Preload rollover images
  9.   nav2a = new Image(78,18);
  10.   nav2a.src = "/images/addGuestFilter_b.jpg";
  11.   nav4a = new Image(78,18);
  12.   nav4a.src = "/images/addGuestFilter_b.jpg";
  13.  
  14.   // Preload rolloff images
  15.   nav2 = new Image(78,18);
  16.   nav2.src = "/images/addGuestFilter_g.jpg";
  17.   nav4 = new Image(78,18);
  18.   nav4.src = "/images/addGuestFilter_g.jpg";
  19.  
  20.  
  21. }
  22.  
  23. // function for rollover
  24. function msover(imgName) {
  25.   if (document.images[imgName]) {
  26.     document.images[imgName].src = eval(imgName + "a.src");
  27.   }
  28. }
  29.  
  30. // function for rollout
  31. function msout(imgName) {
  32.   if (document.images[imgName]) {
  33.     document.images [imgName].src = eval(imgName + ".src");
  34.   }
  35. }
  36.  
  37. // -->
  38. </script>
  39. <%
  40.     command = Request.ReqParam("action")
  41.     if command = "Allow" Then 
  42.         Accounts.GuestAccessType = False
  43.         Response.Redirect("/Rules/GuestAccess.agp")
  44.     end if
  45.  
  46.     if command = "Deny" Then 
  47.         Accounts.GuestAccessType = True
  48.         Response.Redirect("/Rules/GuestAccess.agp")
  49.     end if
  50. %>
  51. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  52. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  53. <title>Empty</title>
  54. </head>
  55.  
  56. <body bgcolor="#FFFFFF" text="#000000">
  57. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  58.   <tr valign=top>
  59.     <td width="100%" valign=top align=right><a
  60.     href="addguestfilter.agp" onMouseOver="msover('nav2')" onMouseOut="msout('nav2')"><img
  61.     src="/images/addGuestFilter_g.jpg" width="220" height="24" alt="Add Guest filter" name=nav2 border=0></a>
  62.     </td>
  63.   </tr>
  64. </table>
  65.  
  66. <p><big><strong><font face="Arial">
  67.         Restrictions for user Guest
  68. </font></strong></big></p>
  69.    <div>
  70.     <table border="1" cellpadding="0" cellspacing="0" width="100%">
  71.    <tr>
  72.         <%
  73.             if Accounts.GuestAccessType then
  74.                 msg = "DENY Guest access from all IP addresses, except these"
  75.             else
  76.                 msg = "ALLOW Guest access from all IP addresses, except these"
  77.             end if
  78.         %>
  79.  
  80.         <td width="80%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  81.             <%Response.Write(msg)%>
  82.         </font></strong></td>
  83.         <td align="center" width="20%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  84.             Action
  85.         </font></strong></td>
  86.    </tr>
  87.     <%Response.Write(Accounts.GuestMaskList)%>
  88.    </table></div>
  89. <br>
  90. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  91.   <tr valign=top>
  92.     <td width="100%" valign=top align=left><a
  93.     href="addguestfilter.agp" onMouseOver="msover('nav4')" onMouseOut="msout('nav4')"><img
  94.     src="/images/addGuestFilter_g.jpg" width="220" height="24" alt="Add Guest filter" name=nav4 border=0></a>
  95.     </td>
  96.   </tr>
  97. </table>
  98. <br>
  99. <form method="POST" action= "GuestAccess.agp">
  100.     <font face="Arial">
  101.     Press this button in order to 
  102.     <%
  103.         if Accounts.GuestAccessType then
  104.     %>
  105.             <input type="submit" name="action" value="Allow">
  106.     <%
  107.         else
  108.     %>
  109.             <input type="submit" name="action" value="Deny">
  110.     <%
  111.         end if
  112.     %>
  113.     Guest access from all IP adresses except those listed above.</font>
  114. </form>
  115.  
  116.  
  117. <br>
  118. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  119. </body>
  120. </html>
  121.